home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3ar.arc / BAL.PRG < prev    next >
Encoding:
Text File  |  1985-10-16  |  1.3 KB  |  62 lines
  1. ******************************** (B:BAL.PRG)
  2. SET EXACT ON
  3. CLEAR
  4. USE B:CUST INDEX B:ACCT
  5. DO WHILE .NOT. EOF()
  6. CLEAR
  7. @ 19,1 SAY 'Want to sum a balance?  '
  8. STORE ' ' TO OPTION
  9. ?
  10. WAIT ' ?  ' TO OPTION
  11. IF OPTION <> 'Y'
  12. RETURN
  13. ENDIF
  14. IF OPTION='Y'
  15. CLEAR
  16. MNET=0.00
  17. OVER_30=0.00
  18. OVER_45=0.00
  19. OVER_60=0.00
  20. MACCT = '    '
  21. ACCEPT 'What account number ?  ' TO MACCT
  22. MNAME='                             '
  23. FIND &MACCT
  24. STORE NAME TO MNAME
  25. USE B:INV
  26. CLEAR
  27. @ 10,0 SAY "I'm working on"
  28. @ 10,15 SAY MNAME
  29. @ 11,0 SAY '============================================'
  30. COPY TO B:TEMP FOR ACCT = MACCT
  31. USE B:TEMP
  32. GO TOP
  33. SET TALK ON
  34. SUM NET TO MNET
  35. SUM NET FOR NEWDATE <= DATE() - 60 TO OVER30
  36. SUM NET FOR NEWDATE <= DATE() - 75 TO OVER45
  37. SUM NET FOR NEWDATE <= DATE() - 90 TO OVER60
  38. SET TALK OFF
  39. USE B:CUST INDEX B:ACCT
  40. FIND &MACCT
  41. REPLACE NET WITH MNET
  42. REPLACE OLD_30 WITH OVER30
  43. REPLACE OLD_45 WITH OVER45
  44. REPLACE OLD_60 WITH OVER60
  45. ?
  46. @ 10,4 SAY 'looking at'
  47. @ 13,13 SAY CHR(27)
  48. @ 13,14 SAY '----------  Total net due'
  49. @ 15,13 SAY CHR(27)
  50. @ 15,14 SAY '----------  30 Days past due'
  51. @ 17,13 SAY CHR(27)
  52. @ 17,14 SAY '----------  45 Days past due'
  53. @ 19,13 SAY CHR(27)
  54. @ 19,14 SAY '----------  60 Days past due'
  55. ?
  56. ?
  57. WAIT 'Press anything... '
  58. ENDIF
  59. ENDDO
  60. RETURN
  61.  
  62.